www.gusucode.com > 网域标准通用企业自助建站系统正式版 2009 > 网域标准通用企业自助建站系统正式版 2009.18/网域公司企业网站管理系统ACCESS和SQL正式版/网域公司企业网站管理系统SQL正式版/admin/Admin_OrderDel.asp

    <%@ LANGUAGE="VBScript" %>
<!--#include file="conn.asp"-->
<!--#include file="admin.asp"-->
<%
dim SQL, Rs, OrderNum,CurrentPage
CurrentPage=request("Page")
OrderNum=trim(request("OrderNum"))

set rs=server.createobject("adodb.recordset")
sqltext="delete from OrderList where OrderNum='"&OrderNum&"'"
rs.open sqltext,conn,3,3
set rs=nothing

set rs=server.createobject("adodb.recordset")
sqltext="delete from OrderDetail where OrderNum='"&OrderNum&"'"
rs.open sqltext,conn,3,3
set rs=nothing
conn.close

response.redirect "Admin_Order.asp?page="&CurrentPage
%>